
/******************************************************************************\
*				   DISCONE4.CPP                                *
*				     95 SEP 16                                 *
********************************************************************************
* Changes Since Last Version: The program was rewritten so that the informa-   *
* tion regarding the side length-to-top diameter ratio only appears if the     *
* ratio is <= 22.                                                              *
********************************************************************************
* The following test runs were performed and the results were compared against *
* manual calculations:                                                         *
*                                                                              *
*                  Operating Range        Diameter of Cone                     *
*   Date           Lower Frequency          Top Opening             Results    *
*                                                                              *
* 95 SEP 16            33.780                 0.9753            Good. Numbers  *
*                                                               matched.       *
* 95 SEP 16           161.2319                0.2846            Good. Numbers  *
*								matched.       *
* 95 SEP 16           864.0                   1.00193           Good. Numbers  *
*                                                               matched.       *
\******************************************************************************/

#include <stdio.h>
#include <stdlib.h>
#include <conio.h>

char Pause(void)
{
  char c;
  printf("\nPress Enter to continue...");
  while ((c = getchar()) != '\n') { }
  return c;
}

float GetFloat(void)
{
  char buffer[80];
  gets(buffer);
  return strtod(buffer, NULL);
}

int main()
{

  float freq     = 0;
  float smallDia = 0;
  float lambda   = 0;
  float sideLen  = 0;
  float discDia  = 0;
  float space    = 0;
  float angle    = 0;
  float ratio    = 0;

  clrscr();
  puts("");
  puts("                     **********************************");
  puts("                     * DISCONE ANTENNA DESIGN PROGRAM *");
  puts("                     *            Version 4           *");
  puts("                     **********************************");
  puts("");
  puts("");
  puts("                               Program Inputs");
  puts("");
  printf("Enter operating range lower frequency (MHz): ");
  freq = GetFloat();
  printf("Enter diameter of cone top opening (inches): ");
  smallDia = GetFloat();

  lambda = 12 * (983.6 / freq);

  sideLen = 0.25 * lambda;
  discDia = 0.685 * sideLen;
  space = smallDia* 0.3;
  angle = 60;
  ratio = sideLen / smallDia;

  puts("");
  puts("");
  puts("                                Design Data");
  puts("");
  printf("Cone side length (inches) == %.2f\n", sideLen);
  printf("Top disc diameter (inches) == %.2f\n", discDia);
  printf("Top of cone-top disc spacing (inches) == %.2f\n", space);
  printf("Angle of cone (degrees) == %.2f\n", angle);
  printf("Cone side length/cone top diameter ratio == %.2f\n", ratio);
  puts("");

  while (ratio <= 22) {
  puts("For optimum results, the cone side length-to-top diameter ratio");
  puts("should be greater than 22. Either lengthen the cone or reduce the");
  puts("diameter of the cone's top opening.");
  Pause();
  return 0;
  }

  Pause();
  return 0;

 }

/******************************************************************************\
* The constant 983.6, which is used to calculate lambda, was derived by taking *
* the constant used to calculate the length of 1/2 wavelength in free space    *
* (491.8) and multiplying it by 2. The formula for determining the length of   *
* 1/2 wavelength in free space (l = 491.8 / freq. in MHz) is located on page   *
* 2-1 of the 1988 edition of The ARRL Antenna Handbook.                        *
\******************************************************************************/